home *** CD-ROM | disk | FTP | other *** search
/ Visual Basic Toolbox / Visual Basic Toolbox (P.I.E.)(1996).ISO / mail / mailx6 / _setup.1 / OCXSIMP.FRM (.txt) < prev    next >
Encoding:
Visual Basic Form  |  1996-01-24  |  3.2 KB  |  112 lines
  1. VERSION 4.00
  2. Begin VB.Form SimpleForm 
  3.    BorderStyle     =   3  'Fixed Dialog
  4.    Caption         =   "Simple cc:Mail eXample"
  5.    ClientHeight    =   1620
  6.    ClientLeft      =   1500
  7.    ClientTop       =   1935
  8.    ClientWidth     =   6225
  9.    Height          =   1995
  10.    Left            =   1455
  11.    LinkTopic       =   "Form1"
  12.    MaxButton       =   0   'False
  13.    MinButton       =   0   'False
  14.    ScaleHeight     =   1620
  15.    ScaleWidth      =   6225
  16.    ShowInTaskbar   =   0   'False
  17.    Top             =   1605
  18.    Width           =   6315
  19.    Begin VB.CommandButton Command4 
  20.       Caption         =   "Fetch neXt"
  21.       Height          =   375
  22.       Left            =   4800
  23.       TabIndex        =   5
  24.       Top             =   120
  25.       Width           =   1215
  26.    End
  27.    Begin VB.CommandButton Command3 
  28.       Caption         =   "Fetch FIRST"
  29.       Height          =   375
  30.       Left            =   3240
  31.       TabIndex        =   4
  32.       Top             =   120
  33.       Width           =   1335
  34.    End
  35.    Begin VB.TextBox Text1 
  36.       Height          =   285
  37.       Left            =   1200
  38.       TabIndex        =   2
  39.       Text            =   "Text1"
  40.       Top             =   840
  41.       Width           =   4815
  42.    End
  43.    Begin VB.CommandButton Command2 
  44.       Caption         =   "Login cc:Mail"
  45.       Height          =   375
  46.       Left            =   120
  47.       TabIndex        =   1
  48.       Top             =   120
  49.       Width           =   1335
  50.    End
  51.    Begin VB.CommandButton Command1 
  52.       Caption         =   "MessageCount"
  53.       Height          =   375
  54.       Left            =   1680
  55.       TabIndex        =   0
  56.       Top             =   120
  57.       Width           =   1335
  58.    End
  59.    Begin Mailx16Lib.MForm MForm1 
  60.       Left            =   720
  61.       Top             =   480
  62.       _Version        =   65541
  63.       _ExtentX        =   8520
  64.       _ExtentY        =   500
  65.       _StockProps     =   0
  66.       MXFormName      =   "FormTag1"
  67.    End
  68.    Begin Mailx16Lib.MSess MSess1 
  69.       Left            =   120
  70.       Top             =   1080
  71.       _Version        =   65541
  72.       _ExtentX        =   900
  73.       _ExtentY        =   900
  74.       _StockProps     =   0
  75.       Mail_Type       =   2
  76.    End
  77.    Begin Mailx16Lib.MMsg MMsg1 
  78.       Left            =   720
  79.       Top             =   1080
  80.       _Version        =   65541
  81.       _ExtentX        =   900
  82.       _ExtentY        =   900
  83.       _StockProps     =   0
  84.       MarkAsRead      =   0   'False
  85.       BindString      =   "MSess1"
  86.    End
  87.    Begin VB.Label Label1 
  88.       Caption         =   "Subject:"
  89.       Height          =   255
  90.       Left            =   240
  91.       TabIndex        =   3
  92.       Top             =   840
  93.       Width           =   855
  94.    End
  95. Attribute VB_Name = "SimpleForm"
  96. Attribute VB_Creatable = False
  97. Attribute VB_Exposed = False
  98. Private Sub Command1_Click()
  99.     MsgBox MMsg1.MsgCount
  100. End Sub
  101. Private Sub Command2_Click()
  102.     MSess1.Logon = True
  103. End Sub
  104. Private Sub Command3_Click()
  105.     MMsg1.Action = ACTION_FINDFIRST
  106.     Text1 = MMsg1.Subject
  107. End Sub
  108. Private Sub Command4_Click()
  109.     MMsg1.Action = ACTION_FINDNEXT
  110.     Text1 = MMsg1.Subject
  111. End Sub
  112.